home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / comms / other / dwarfx-tng / dwarfx / dwarfquit.amirx < prev    next >
Text File  |  1999-04-19  |  927b  |  14 lines
  1. /*
  2. \\ |DWaRFx-TNg| - DWaRFQUiT.AmIRX v1.3
  3. //              - By Gareth Murfin
  4. \\
  5. // A quit script to leave AmIRC and create a 'fake' NetSplit in which you are
  6. \\ lost in, also gives out a reason for your leaving..
  7. //
  8. \\
  9. // To run do /DwQUIT <reason for quitting>
  10. \\        or /Rx Rexx/DWaRFx/DWaRFQUiT.AmIRX <reason>
  11. //
  12. \\
  13. */
  14. parse arg args;options results;'getservername';servername=result;'getmynick';mynick=result;if ARGS="" then;do;"echo P="d2c(27)"b«DWaRFQUiT» You need to put a reason you TwonK! - 'd2c(2)'|DWaRFx-TNG|'d2c(2)' v2.4 - Gareth Murfin";exit;end;evnum=Substr(Address(),Pos('.',Address()));Call Setclip('DFxTIME'evnum,Time());'echo Now Closing link with "servername" "mynick"...';'say 'd2c(2)'|DWaRFx-TNG|'d2c(2)' - Im smegging off to get myself a beer milkshake...';'say But before I go you better listen to this :-';'say 'ARGS;'say /Quit Amiga.Net.com DWaRFx.co.uk' /* <= Change the split here if you want! */